home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)t2.d64 / CRT.ASM < prev    next >
Assembly Source File  |  2009-01-18  |  1KB  |  44 lines
  1.         nam  ** crt.asm  **  ref ex18m.asm
  2.         xdef    crt
  3.         xref    openf_
  4.         xref    closef_
  5.         xref    initstd_   ;init.kbd,crt
  6.         xref    fputnl_
  7.         xref    fputchar_
  8. crt     pshs    x,d
  9.         jsr     initstd_;init.std i/o
  10.         ldd     #mode   ;load address of file mode
  11.         pshs    d
  12.         ldd     #outfile;load address of file name
  13.         jsr     openf_
  14.         leas    2,s
  15.         std     outptr
  16.         ldx     #$8000
  17. nxtline lda     #$50    ;80char per line
  18. letter  deca
  19.         bmi     newline
  20.          ldb    ,x+
  21.          pshs   x,a             ;save x,a
  22.          pshs   d
  23.          ldd    outptr
  24.          jsr    fputchar_       ;display it
  25.          leas   2,s
  26.          puls   a,x             ;restore a,x
  27.         bra     letter
  28. newline ldd     outptr
  29.         pshs    x
  30.         jsr     fputnl_         ;empty buffer and newline
  31.         puls    x
  32.         cmpx    #$872e          ;do 23 lines only
  33.         blo     nxtline
  34.         ldd     outptr          ;finished
  35.         jsr     closef_
  36.         puls    d,x
  37.         rts
  38. outfile fcc     "printer"
  39.         fcb     0
  40. mode    fcc     "w"
  41.         fcb     0
  42. outptr  rmb     2
  43.         end
  44.